/setclp known{/setclp{np 0 0 m
 ct1 39 get 0 ne{ct1 0 ct1 39 get getinterval cvx exec}if
 ct2 ctz get 256 mul ct2 ctz 1 add get add dup 0 ne
 {dup ct2 0 3 -1 roll getinterval cvx exec}if pop cps np mif}bind store}if end}if

/kp known{/kp{ct1 0 2 index length 2 index 39 2 index 
 put getinterval copy cvx exec mtx1 currentmatrix 
 pop cps np mif}bind store}if

dup dup dup begin
/ct1 known{/ct1 40 string store ct1 39 0 put}if

where {pop